(time-stamp-string-preprocess): Add %U code.

diff --git a/lisp/time-stamp.el b/lisp/time-stamp.el
index fd41a345ab6b17285421fb98361d6e13e90bb7bf..b7a85400d72290b0eb4012a5f68a7f2349c8f797 100644 (file)
--- a/lisp/time-stamp.el
+++ b/lisp/time-stamp.el
@@ -69,6 +69,7 @@ Non-date items:
 %f   file name without directory       %F  gives absolute pathname
 %s   system name
 %u   user's login name
+%U   user's full name
 %h   mail host name
 
 Decimal digits between the % and the type character specify the
@@ -445,6 +446,8 @@ With arg, turn time stamping on if and only if arg is positive."
          (system-name))
         ((eq cur-char ?u)              ;user name
          (user-login-name))
+        ((eq cur-char ?U)              ;user full name
+         (user-full-name))
         ((eq cur-char ?h)              ;mail host name
          (time-stamp-mail-host-name))
         ))